home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / languages / pcq_incl3v1.lha / Devices / Parallel.i < prev    next >
Encoding:
Text File  |  1994-04-15  |  3.2 KB  |  93 lines
  1. {
  2.         Parallel.i for PCQ Pascal
  3.  
  4.         external declarations for Parallel Port Driver
  5. }
  6.  
  7. {$I "Include:Exec/IO.i"}
  8.  
  9. Type
  10.  
  11.     IOPArray = record
  12.         PTermArray0     : Integer;
  13.         PTermArray1     : Integer;
  14.     end;
  15.     IOPArrayPtr = ^IOPArray;
  16.  
  17.  
  18. {****************************************************************}
  19. { CAUTION !!  IF YOU ACCESS the parallel.device, you MUST (!!!!) use
  20.    an IOExtPar-sized structure or you may overlay innocent memory !! }
  21. {****************************************************************}
  22.  
  23.     IOExtPar = record
  24.         IOPar           : IOStdReq;
  25.  
  26. {     STRUCT    MsgNode
  27. *   0   APTR     Succ
  28. *   4   APTR     Pred
  29. *   8   UBYTE    Type
  30. *   9   UBYTE    Pri
  31. *   A   APTR     Name
  32. *   E   APTR     ReplyPort
  33. *  12   UWORD    MNLength
  34. *     STRUCT   IOExt
  35. *  14   APTR     io_Device
  36. *  18   APTR     io_Unit
  37. *  1C   UWORD    io_Command
  38. *  1E   UBYTE    io_Flags
  39. *  1F   UBYTE    io_Error
  40. *     STRUCT   IOStdExt
  41. *  20   ULONG    io_Actual
  42. *  24   ULONG    io_Length
  43. *  28   APTR     io_Data
  44. *  2C   ULONG    io_Offset
  45. *  30 }
  46.         io_PExtFlags    : Integer;      { (not used) flag extension area }
  47.         io_Status       : Byte;         { status of parallel port and registers }
  48.         io_ParFlags     : Byte;         { see PARFLAGS bit definitions below }
  49.         io_PTermArray   : IOPArray;     { termination character array }
  50.     end;
  51.     IOExtParPtr = ^IOExtPar;
  52.  
  53. Const
  54.  
  55.     PARB_SHARED         = 5;    { ParFlags non-exclusive access bit }
  56.     PARF_SHARED         = 32;   {     "     non-exclusive access mask }
  57.     PARB_RAD_BOOGIE     = 3;    {     "     (not yet implemented) }
  58.     PARF_RAD_BOOGIE     = 8;    {     "     (not yet implemented) }
  59.     PARB_EOFMODE        = 1;    {     "     EOF mode enabled bit }
  60.     PARF_EOFMODE        = 2;    {     "     EOF mode enabled mask }
  61.     IOPARB_QUEUED       = 6;    { IO_FLAGS rqst-queued bit }
  62.     IOPARF_QUEUED       = 64;   {     "     rqst-queued mask }
  63.     IOPARB_ABORT        = 5;    {     "     rqst-aborted bit }
  64.     IOPARF_ABORT        = 32;   {     "     rqst-aborted mask }
  65.     IOPARB_ACTIVE       = 4;    {     "     rqst-qued-or-current bit }
  66.     IOPARF_ACTIVE       = 16;   {     "     rqst-qued-or-current mask }
  67.     IOPTB_RWDIR         = 3;    { IO_STATUS read=0,write=1 bit }
  68.     IOPTF_RWDIR         = 8;    {     "     read=0,write=1 mask }
  69.     IOPTB_PARSEL        = 2;    {     "     printer selected on the A1000 }
  70.     IOPTF_PARSEL        = 4;    { printer selected & serial "Ring Indicator"
  71.                                   on the A500 & A2000.  Be careful when
  72.                                   making cables }
  73.     IOPTB_PAPEROUT      = 1;    {     "     paper out bit }
  74.     IOPTF_PAPEROUT      = 2;    {     "     paper out mask }
  75.     IOPTB_PARBUSY       = 0;    {     "     printer in busy toggle bit }
  76.     IOPTF_PARBUSY       = 1;    {     "     printer in busy toggle mask }
  77.  
  78. { Note: previous versions of this include files had bits 0 and 2 swapped }
  79.  
  80.     PARALLELNAME        = "parallel.device";
  81.  
  82.     PDCMD_QUERY         = CMD_NONSTD;
  83.     PDCMD_SETPARAMS     = CMD_NONSTD + 1;
  84.  
  85.     ParErr_DevBusy      = 1;
  86.     ParErr_BufTooBig    = 2;
  87.     ParErr_InvParam     = 3;
  88.     ParErr_LineErr      = 4;
  89.     ParErr_NotOpen      = 5;
  90.     ParErr_PortReset    = 6;
  91.     ParErr_InitErr      = 7;
  92.  
  93.